home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / ip_icmp.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  2.2 KB  |  54 lines
  1. if (!defined &_IP_ICMP) {
  2.     eval 'sub _IP_ICMP {1;}';
  3.     eval 'sub icmp_pptr { &icmp_hun. &ih_pptr;}';
  4.     eval 'sub icmp_gwaddr { &icmp_hun. &ih_gwaddr;}';
  5.     eval 'sub icmp_id { &icmp_hun. &ih_idseq. &icd_id;}';
  6.     eval 'sub icmp_seq { &icmp_hun. &ih_idseq. &icd_seq;}';
  7.     eval 'sub icmp_void { &icmp_hun. &ih_void;}';
  8.     eval 'sub icmp_otime { &icmp_dun. &id_ts. &its_otime;}';
  9.     eval 'sub icmp_rtime { &icmp_dun. &id_ts. &its_rtime;}';
  10.     eval 'sub icmp_ttime { &icmp_dun. &id_ts. &its_ttime;}';
  11.     eval 'sub icmp_ip { &icmp_dun. &id_ip. &idi_ip;}';
  12.     eval 'sub icmp_mask { &icmp_dun. &id_mask;}';
  13.     eval 'sub icmp_data { &icmp_dun. &id_data;}';
  14.     eval 'sub ICMP_MINLEN {8;}';
  15.     eval 'sub ICMP_TSLEN {(8 + 3 * $sizeof{ &n_time});}';
  16.     eval 'sub ICMP_MASKLEN {12;}';
  17.     eval 'sub ICMP_ADVLENMIN {(8 + $sizeof{\'struct ip\'} + 8);}';
  18.     eval 'sub ICMP_ADVLEN {
  19.         local($p) = @_;
  20.         eval "(8 + (($p)-> &icmp_ip. &ip_hl << 2) + 8)";
  21.     }';
  22.     eval 'sub ICMP_ECHOREPLY {0;}';
  23.     eval 'sub ICMP_UNREACH {3;}';
  24.     eval 'sub ICMP_UNREACH_NET {0;}';
  25.     eval 'sub ICMP_UNREACH_HOST {1;}';
  26.     eval 'sub ICMP_UNREACH_PROTOCOL {2;}';
  27.     eval 'sub ICMP_UNREACH_PORT {3;}';
  28.     eval 'sub ICMP_UNREACH_NEEDFRAG {4;}';
  29.     eval 'sub ICMP_UNREACH_SRCFAIL {5;}';
  30.     eval 'sub ICMP_SOURCEQUENCH {4;}';
  31.     eval 'sub ICMP_REDIRECT {5;}';
  32.     eval 'sub ICMP_REDIRECT_NET {0;}';
  33.     eval 'sub ICMP_REDIRECT_HOST {1;}';
  34.     eval 'sub ICMP_REDIRECT_TOSNET {2;}';
  35.     eval 'sub ICMP_REDIRECT_TOSHOST {3;}';
  36.     eval 'sub ICMP_ECHO {8;}';
  37.     eval 'sub ICMP_TIMXCEED {11;}';
  38.     eval 'sub ICMP_TIMXCEED_INTRANS {0;}';
  39.     eval 'sub ICMP_TIMXCEED_REASS {1;}';
  40.     eval 'sub ICMP_PARAMPROB {12;}';
  41.     eval 'sub ICMP_TSTAMP {13;}';
  42.     eval 'sub ICMP_TSTAMPREPLY {14;}';
  43.     eval 'sub ICMP_IREQ {15;}';
  44.     eval 'sub ICMP_IREQREPLY {16;}';
  45.     eval 'sub ICMP_MASKREQ {17;}';
  46.     eval 'sub ICMP_MASKREPLY {18;}';
  47.     eval 'sub ICMP_MAXTYPE {18;}';
  48.     eval 'sub ICMP_INFOTYPE {
  49.         local($type) = @_;
  50.         eval "(($type) ==  &ICMP_ECHOREPLY || ($type) ==  &ICMP_ECHO || ($type) ==  &ICMP_TSTAMP || ($type) ==  &ICMP_TSTAMPREPLY || ($type) ==  &ICMP_IREQ || ($type) ==  &ICMP_IREQREPLY || ($type) ==  &ICMP_MASKREQ || ($type) ==  &ICMP_MASKREPLY)";
  51.     }';
  52. }
  53. 1;
  54.